;--------------------------------------------------------------------------------------------------------------------

;this routine makes a table of squares needed for the multiplication routine

makesquares
	lda #0
	tax
	tay
	sta squarelow,x
	sta squarehigh,x
makesquaresloop
	txa
	asl
	bcc *+3
	iny                 ;add carry from asl-ing
	sec
	adc squarelow,x
	sta squarelow+1,x
	bcc *+3             ;add carry from adding the lowbyte
	iny
	tya
	sta squarehigh+1,x
	inx
	cpx #$ff
	bne makesquaresloop
	rts

